;;========================================
[@Main]
#IF
#ACT
MOV A8 %USERMAP
ADDSTR A8 ",40,40,40"

#IF
CheckMonMap %A8 50 ֮ħ
#ACT
break

#IF
#ACT
MOV A8 %USERMAP
ADDSTR A8 ",30,36,30"
MongenP %A8 ֮ħ 2
break
;;========================================